(make-lucid-menu-keymap): For "----", make blank line.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 3883d0ed4bedbb618eeac781fee63820f7e991f9..d06b4d56feecadc15aa1e16802d28a9897044b67 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -63,7 +63,7 @@
             command enabler name)
        (cond ((stringp item)
               (setq command nil)
-              (setq name item))
+              (setq name (if (equal item "----") "" item)))
              ((consp item)
               (setq command (make-lucid-menu-keymap (car item) (cdr item)))
               (setq name (car item)))